COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE	MIXAL
 00006 ENDMK
⊗;
TITLE	MIXAL

p←17

acsave:	block	20				; used to save ac's when we're in MIX
DEFINE ULIST1 {DONEIT←←0}
DEFINE ULIST2 {IFE DONEIT, {DONEIT←←1↔XLIST}}

;	SINCE NO BUTTON HAS BEEN READ BEFORE MIXAL IS CALLED, THERE CAN BE
;		NO SECOND ARGUMENT ON THE LINE.  THUS THE RESCN ROUTINE SIMPLY
;		TAKES ITS SKIP RETURN

RESCN:	AOS	(P)
	AOS	(P)
	POPJ	P,
RECHAR:	0